home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / brb_handlebars.lha / Handle_Bars < prev    next >
Text File  |  1995-10-15  |  2KB  |  34 lines
  1. /**************************************************************************\
  2.             $VER: Handle Bars, v1.70 (15-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch
  6. gu 1;handle=upper(result);colors='01234569abcdef'
  7.  
  8. shape='█' /* Character used to define BARS!                               */
  9.  
  10. START:;tr 'f1n1z2cf        Handle Bars v1.70        z0'
  11.   tr 'z2cb                                 z0'
  12.   do i=1 to length(handle);L=substr(handle,i,1)
  13.     d=datatype(L,'u');a=c2d(L)-64;b=a;if b>13 then b=b-13
  14.     if d=0 then do;a=0;b=0;end
  15.     se 'z2 cf'L'  z0c'substr(colors,b+1,1)
  16.     tr left(copies(shape,a),27)'z2  z0'
  17.   end i;tr 'z2cf     Every Handle Is Unique!     z0n1'
  18.   se 'c2(ceHc2)ceandlec2, (cfTc2)cfextc2, '
  19.   se 'or c2[cdQc2]cduitc2: ';gc;a=result
  20.   if a='Q' | index('HT',a)=0 then do;tr 'cdQuit';exit;end
  21.   if a='H' then do;tr 'ceHandlen1';signal NEWHANDLE;end
  22.   se 'cfText Stringn2c2Enter cfText c2Stringcf:cei529 16}';gu 70
  23.  handle=result;signal START
  24. NEWHANDLE:;se 'c2Enter ceID c2Numberce:cfi192 3}';gu 70;a=result
  25.   findaccount a;st=result;if st=0 then do
  26.     tr 'n1c2That is an c9Invalid c2ID#c2!';exit;end
  27.   loadscratch st;gs 1;handle=upper(result);savescratch (-st)
  28.  signal START
  29. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  30.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  31.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  32. /** Last Edited: 15-Oct-95 ************************************************\
  33. \****************************************** Frontiers BBS (716)/823-9892 **/
  34.